home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Kepler1.Sym < prev    next >
Encoding:
Text File  |  1995-11-30  |  2.7 KB  |  8 lines  |  [TEXT/.Ob4]
  1. ˜º◊◊øKepler1¿Ÿ’øKeplerGraphs |ObjectDescObject¸{self¬⁄‘øKeplerPortsPort˚{P Draw¸{selfã≈¶¶Filesreseof tRider˚{R Read¸{self˚{R WritenofptsStar
  2. pConstellationnext tConsDesc¸{self˚{R Read¸{selfState¸{self˚{R     Writewidtha1a2  |AttrDescAttrLine¸{A˚{F Draw¸{A˚{R Read¸{A˚{R WriteCircle xCircleDesc¸{C˚{F DrawEllipse tEllipseDesc¸{E˚{F DrawH90Shape pH90ShapeDesc¸{self˚{F 
  3. Draw HShape l!!!HShapeDesc ¸{self˚{F ! Draw"Line h###LineDesc"¸{L˚{F # Draw$Rectangle d%%%RectangleDesc$¸{R˚{F %Draw&Stringæÿ÷øKeplerFrames
  4. Ä'sêØâflFonts(Font(òfntúalign †x)))CaptionDesc)*Caption*¸{C˚{F )Draw*¸{C˚{R )Read*¸{C˚{R )Write )†`+++StringDesc,Texturepat \---TextureDesc,¸{T˚{F -Draw,¸{T˚{R -Read,¸{T˚{R -Write.Trianglepat X///TriangleDesc.¸{T˚{F /Draw.¸{T˚{R /Read.¸{T˚{R /Write ChangeAlign ChangeAttrLine ChangeFont     GetAttrLine NewAttrLine NewCircle NewEllipse NewH90Shape NewHShape NewLine NewRectangle NewString NewTexture NewTriangleܵàflDisplay0Frame0dsc0nextX
  5. Y WH0¸{f x11FrameMsg1˚{msg     2Handler2handle t33FrameDescx0y0scale ext 3$|44 4PortDesc¸{P˚{x4CX¸{P˚{y4CY¸{P˚{X4Cx¸{P˚{Y4Cy¸{P˚{x˙{y˘{r¯{col˜{mode 4DrawCircle¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode 4DrawEllipse¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode 4DrawLine¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode 4DrawRect¸{P˚{x˙{y 5˘{s(˜{fontˆ{colı{mode 4    DrawString¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode 4    
  6. FillCircle¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode 4
  7. FillQuad¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode 4 FillRect4xyrefcntsel next x666StarDesc¸{self˚{P 6Draw¸{self˚{R 6Read¸{self˚{R 6Write6 !"#$%&+
  8.  7Name7name height"minX$maxX&minY(maxY8Font8,raster0 4|99FontDesc(9,-./03 |::Bytes8: